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| EDTSCHMPASTE = change mode PASTE command bese ~se0- 1986 99:08:07 VAX-11 Bliss-32 V4.0-7 Page 1 
14-Sep-1 7:22:42 DISK KSVMGM TER:CEDT. SRC CHMPASTE.BLI;1 (1) | 
001 ZTITLE ‘EDTSCHMPASTE = change mode PASTE command’ 
0 § MODULE EDTSCHMPASTE ( ! Change mode PASTE comm 


we = 'v04-000' ! File: CHMPASTE. BL Edit: JBS1014 
BEGIN 


eee eRe eRe REAR AERA HAA HAA AHHH HEHEHE ee eeeeeeeeeeeeeeetereeeeeees 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
' DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE ee AND copes 
L DANCE WI TH F CH LICE H_THE 


® 
® 
® 
ot 
® 
® 
® 
i A . 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 
® 
® 
® 
® 
® 
® 
® 
® 
* 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
= a ePORaT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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SRR RRA RARER AARAAAAAAAAAEAAAAEAAEAAAAEAAAAAAAEAAAAAAAAAAAAAAREEeAEREeAee 


i FACILITY: EDT == The DEC Standard Editor 
i ABSTRACT: 
This module executes the change mode PASTE command. 
i ENVIRONMENT: Runs at any access mode - AST reentrant 
i AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
i MODIFIED BY: 
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' 
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! 

' 

! 
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' 

] 

' 

! 1-001 - Original. DJS 04-Feb-1981. This module was created b 
extracti ng the rout ine EDTSSPST_CMD_ from the module CHANGE.BLI. 
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FR 


! 1-002 - Regularize header JBS 03-Mar-1981 
‘ Change SPLIT ®t INE. to epissePL 1 =LNINS JBS 30-Mar-1981 
Use new message codes. JBS 06-Aug-1981 (this note added 24-May-1982) 
Set a flag if sentres B: C actually aborts, pret: JBS 24-May-1982 
New screen anne togic JBS 15- 

Remove EDT$$G_LN_NO for new screen Codate Logi § Jes s$a00?” 782 
Convert to new Une number r compare macro. STS 20-0 

Add a parameter to t sel it ne o rout ieee hed i show" 982 

Remove parameter trom ai $$SPLT 48S. Decnbas, 

Add a parameter to EDTS$COMB rth JBS 2 

Improve effic ency by accumu rin iBs blank f nes etl they are needed. JBS al iris Oe 
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on sequence, to avoid problems with sequence numbers. JBS 0 
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28 6935 } } 1-014 = Decrement the insert count if we end by combining Lines. JBS 01-Jun-1983 
60 i & 
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Declarations 
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SEPP RS POPP RANA 
PUPP BS BS at et ot 
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33; 
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RSBTTL Declarations’ 
; TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC:TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSPST_CMD; 


| INCLUDE FILES: 
REQUIRE "EDTSRC:EDTREQ'; 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE : 
NONE 

EXTERNAL REFERENCES: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
; 
: In the routine 


Bhs 3: 3bi et NaS cSumBaAS fe 


! Execute the paste command 
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EDTSCHMPASTE = change mode PASTE command 1$-Se 1984 00:08:07 VAX-11 Bliss-32 V4.0-74 Page 4 wy 
EDTSSPST_CMD = change mode PASTE command 12-801 384 99:9 742 DLSKSVMGMASTERSCEDT SRCICHMPASTE .BLI64° (3) 

ree } ZSBTTL 'EDTSSPST_CMD = change mode PASTE command’ 

$87 : GLOBAL ROUTINE EDTSSPST_CMD ! Change mude PASTE command 

= 

rg 1 

670 1 !44 

of) : FUNCTIONAL DESCRIPTION: 

675 1! This routine executes the paste command. The variable EDTS$$A_ALT_BUF has 

pore 1 the address of the TBCB for the buffer to be pasted. nites | 
067 i FORMAL PARAMETERS: 
0678 1! NONE 
0679 1! 
0680 1 ! IMPLICIT INPUTS: 
0681 1! 
0682 1: EDTSS$A_ALT_BUF 
06835 1! EDTS$A_CUR_BUF 
0684 1! EDTSS$L_L 
0685 1! EDTSSL_LNO1 
0686 1! EDTSSA_WK_LN 
0687 1! 
0688 1 ! IMPLICIT OUTPUTS: 
0689 1! 
0690 1: EDT$$G_PST_CNT 
0691 1! EDTS$$G_CC_BONE 
Be8 ; EDTS$L_WK_INSCNT 
0694 1 ! ROUTINE VALUE 
0695 1! 
oe8 : A value of 0 is returned if the paste failed. 
0698 1 ! SIDE EFFECTS: 
0699 1! 
0700 1! NONE 
0701 1! 
404 1 !-- 
14 1 

704 BEGIN 
0705 
B78 eaTean, ROUTINE 

7 EDTSSINS_STR, ! Insert a string of characters at the current position 
878 EDTSSMSG_BELL : NOVALUE, ' Output a message to the terminal with a warning bell 

7 EDTSSCHK CC, ! Check to see if a CTRL/C has been typed ; 7 
0710 EDTSSCOMB_LN : NOVALUE, ' Combine the current Line with the one immediately above it 
0711 EDTS$CS_DON ! Move down a Line 

re EDTSS$CS_LEFf ! Move left a character 

71 EDTSS$CS-RIGHT, i Move right a character 

714 EDTSSSPCT_LN : NOVALUE, ' Split a Line of text at the current cursor position 

Tae EDTSSEND_INS, ' End an insert sequence 

rig EDTSS$RD_CURLN, ! Get the current Line 

071 EDTSSRD_NXTLN ' Move forward a Line 

0718 EDTS$START_INS, ' Start an insert sequence 
44 EDTSSTOP_BOF ; : Go to top of buffer 
O73 EXTERNAL 
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EDTSCHMPASTE EDTSCHMPASTE = change mode PASTE command 16-Sep-1984 00:08:07 VAX-11 Bliss-32 V4.0-74 Page 5. 
v04-000 EDTSSPST_CMD - change mode PASTE command 12-80-1382 EE DLSKSVMEMASTERSCEDT  SRCSCHMPASTE.BLI-T* (3). 
, 7 ¢ 7 ¢ EDTS$$G_PST_CNT, ! No. of characters pasted. . 
. YF 7 EDTSSA_ALT_BUF : REF TBCB_BLOCK, ! Alternate buffer used for cut/paste. : 
; 154 724 EDTSSA_CUR BUF : REF TBCB_BLOCK, ' The current butt r tbcb ; 
s 155 725 EDTSSL_LNOO : LN BLOCK, ! Line number 10**0 (1) ; 
; 156 07 § EDTSSA_WK_LN : REF LIN_BLOCK, ' Current Line pointer | : 
3 Tor 07 EDTS$G_CC_DONE, ! Set to 1 if control C actually aborts something : 
; 138 4 8 EDTSSL_WK_INSCNT : LN_BLOCK; ! Number of records inserted in this insert sequence : 
; 160 7 0 MESSAGES ((ATTPASCUR)); : 
: 161 0731 : 
; 196 07 ; OCAL | ; 
; (16 Bf SAVE _TBCB ; 
> 164 734 BLANR_LINES; : 
: 165 0735 3 
; 166 0736 IF (.EDTS$A_ALT_BUF EQL 0) THEN RETURN (0); : 
> 167 of 7 ; 
; 168 738 4 ; 
; 169 0739 ' Check for paste of the current buffer. ; 
: 170 0740 !- ; 
; «63 0741 : 
: 17@ O74¢ IF (.EDTS$A_ALT_BUF EQL .EDTS$A_CUR_BUF ) : 
: 17 074 THEN ; 
3 176 0744 BEGIN : 
s 175 0745 EDTSSMSG_BELL (EDTS$_ATTPASCUR); . 
: 176 0746 3 RETURN (0); | : 
Tele 0747 3 ; 
: 178 0748 : 
: 179 0749 + ; 
; 139 B30 3 Save the address of the current text buffer. : 
s 182 0726 SAVE_TBCB = .EDTSS$A_CUR_BUF; : 
: «183 0753 2 EDTSSG_PST_CNT = 0; : 
3: «(184 0754 '¢ : 
s 185 0755 ! Check for empty buffer. : 
; «186 0756 te : 
s 187 0757 2 $ 
; 188 0738 é IF (CMPLNO (EDTSS$L_LNOO, EDTSSA_ALT_BUF CTBCB_LINE_COUNT]) EQL 1) THEN RETURN (1); : 
; i 444 3 EDTSSSTART_INS (); ! Perform initialization for text insertion 3 
3 : ‘ 
; 136 164 Split the current Line, so we can find our current point again. : 
> 194 0764 EDTSSSPLT_LN (); 3 
3; 195 8763 EDTSSCS_LEFT (); 3 
3; 196 766 3 
: 197 0767 BLANK_LINES = 0; : 
: 4198 the: '¢ : 
: ih 4 B76? Position to the front of the paste buffer. | : 
: 201 0771 EDTS$A_CUR_BUF = .EDTSS$A_ALT_BUF; 
3 4 3558 EDTS$TOP_BOF (); 
3: 204 0774 WHILE 1 DO ! Loop through all of the paste buffer. 
3 #4 gore BEGIN 
> 207 On77 : Handle the next line. If the Line is of zero Longeh just count the blank Lines counter. 
; 208 0778 ! Otherwise insert all of the blank Lines counted plus this Line. 
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EDTSCHMPASTE = EDTSCHMPASTE = change mode PASTE command 16-Sep-1984 90:08:07 VAX-11 Bliss-32 V4.0-74 Page 6 EDT 
v04-000 EDTSSPST_CMD = change mode PASTE command 12286871382 73:98:23 DLSKSVMGMASTERSCEDT SRCSCHMPASTE .BLI0%” (3) | v04 
; 209 779 le 3 
3 10 780 3 : 
3: elt 781 4 IF_(.EDTS$A_WK_LN CLIN_LENGTH] NEQ 0) ; 
; \¢ 7 ¢ 3 THEN : 
; oe fi ta Peete a CUR BUF = .SAVE.TBCB : 
; 1? Ors : EDTSSRD_CURLN (); is, cai | : 
: i$ Ore? 4 WHILE (.BLANK_LINES GTR 0) DO : 
; 218 res 5 BEGIN ; 
; 219 0789 5 EDTSSSPLT_LN (); | : 
; 20 0790 5 BLANK_LINES = .BLANK_LINES = 1; ; 
: 1 0791 4 END; 3 
3 ss¢ 1454 4 | 3 
3: de 0793 4 EDT$$A_CUR_BUF = .EDTSSA_ALT_BUF; | : 
; oak 0794 4 EDT$$RD_CURLN (); : 
; 354 0799 4 EDTSSINS_STR (EDTS$A_WK_LN CLIN_TEXT], .EDTSS$A_WK_LN CLIN_LENGTH]); | ; 
: 22 0797 : : 
3 o28 0798 ; EDTSSG_PST_CNT = .EDTSS$G_PST_CNT + .EDTS$A_WK_LN CLIN_LENGTH] + 1; ; 
3 $$ 0800 ; IF ( NOT EDTSS$RD_NXTLN ()) THEN EXITLOOP; | : 
s 231 0801 F 
3 $36 0802 3 !+ 3 
.> ae 0803 3 ! Check for CTRL/C. 3 
>; 234 0804 3 !- 3 
; 235 0805 3 3 
; 236 0806 3 IF EDTSSCHK_CC () 3 
3; gor 0807 3 THEN | : 
; 238 0808 4 BEGIN 3 
: 239 0809 4 EDT$$G_CC_DONE = 1; | : 
3; 240 0810 4 EXITLOOP; : 
: 241 0811 ; 3 
5 seg Oats 
3 26 0813 3 BLANK_LINES = .BLANK_LINES + 1; 
3 244 0814 2 END; 
3 245 0815 2 
3 246 0816 3 '¢ : 
: 247 0817 : We have completed the insertion except for possible trailing blank Lines. We must also 
: 248 0818 § ! undo the initial split. If the last line to be inserted was blank we don't need to 
3 rH + $4 § } undo the initial split. 
3 251 0821 EDTS$A_CUR_BUF = .SAVE_TBCB; 
3 338 pass EDTSSRB_CURLN (); 
: 254 0824 WHILE (.BLANK_LINES GTR 1) DO 
s 235 0825 BEG 
3 336 0826 EDTSSSPLT_LN (); 
: 257 0827 BLANK_LINES = .BLANK_LINES - 1; 
3 $28 0828 END; 
3 59 +4 
: 260 0830 IF (.BLANK_LINES EQL 0) 
: 261 obs! THEN 
: 6¢ 839 BEGIN 
3; 26 083 EDTS$$CS_DWN (); 
> 264 0834 EDTS$$COMB_LN (0); 
> 265 0835 SUBLINE (RUMBER_ONE, EDT$S$L_WK_INSCNT); 
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EDTSCHMPASTE EDTSCHMPASTE = change mode PASTE command 1b-se -1984 00:08:07 VAX-11 Bliss-32 V4.0-7 7) 
04-000 EDTS$Psi PST_CMD = change mode PASTE command 14-Sep-19 4 1339805 DISKSVMSMASTER: cto i ’ske CHMPASTE.BLI; had (3), 
H $8 EDTSSG_PST_CNT = .EDTS$G_PST_CNT = 1; | 
: 26 END | 
> 268 8 ELSE 
; 3 a8e6 EDTSS$CS_RIGHT (); 
: 271 841 EDTSSEND_INS (); r 
: $5 O84¢ RETURN Ts End the text insertion sequence 
3; af 0843 1 END; ! of routine EDTS$PST_CMD 


-TITLE EDTSCHMPASTE EDTSCHMPASTE = change mode PASTE c 
H omman 
-IDENT \V04-000\ 


-EXTRN EDTSSINS ~SiR. EDTSSMSG_BELL : 

-EXTRN EDTSSCHK-CC, EDT$$COMB_LN ; 

EXTRN EDTSS$CS DUN’ EDTSSCS_LEFT 3 

-EXTRN EDTSSCS-RIGHT, ED TssSeLT. LN 3 

EXTRN EDTSSENB_INS, EDTS$RD_CURLN 5 

EXTRN EDTSSRD_AXTLN, EDISSSTART TNS 3 

EXTRN EDTSSTOP BUF, EDTSS T_tNnT : 

EXTRN EDTSS$A_ALT_BUF, EDTSSA. LOR _BUF 3 

EXTRN EDTSS$L_L nod, “gbTS3h 3 

EXTRN EDTS$$G_ a E EDTSSL ~WK_INSCNT 2 

EXTRN EDTS SRTIPRSCU : 

-PSECT _EDTSCODE.NOWRT, SHR, PIC,2 : 

07FC 00000 -ENTRY EDTsSPst_ CMD, Save R2,R3,R4,R5,R6,R7,RB,R9,-; 0667. : 

5A 000000006 00 9€ 00002 MOVAB EDTSS$RD_CURLN, R10 3 : 
59 00000000G 00 9€E 00009 MOVAB EDT$$A_QK_LN, R9 : : 
58 00000000G 00 9€ 00010 MOVAB EDTSSSPLT™ LN, R8 3 3 
57 000000006 00 9€ 00017 MOVAB EDTSSA AL T _BUF, R7 : 3 
56 00000000G 00 9E OOODIE MOVAB FIRST_QORD;> R6- 3 j 
55 000000006 00 9€ 00025 MOVAB EDTSS$G_PST_CNT, e 3 3 
54 000000006 00 9 ita MOVAB EDTSS$A_CUR_BUF, 5 3 
50 67 bd 000 MOVL EDTSS$A_ALT_BUF, RO ; 0736) ; 
12 13 00036 BEQL 1$ 3 $ 

64 50 D1 00038 CMPL RO, EDTS$A_CUR_BUF + 0742 | 3 
10 12 00038 BNEQ 2s : 3 

00000000G 8F ODD te PUSHL #EDTS_ATTPASCUR ; 0745. : 
000000006 00 01 FB 0004 CALLS #1, EBTSSMSG_BELL : 3 
OOFC 31 OO4A 1$: BRW 20$ : 0746. 3 

53 64 DO 0004D 2$: MOVL EDTSSA_ CUR BUF, SAVE_TBCB : 0752. 3 
65 D4 38 0 CLRL EDTS$$G_PST-CNT : 0753. 3 

50 67 18 ¢! 2 ADDL #24, ETEK. ALT_BUF, RO ; 0758. : 
51 000000006 +4 C 00056 MOVZWL HIGH_1, R1 3 5 
51 04 ad 861 0005D CMPW 4(ROJ, R1 : 3 
of 1A 00061 BGTRU 3 : 3 

1 is BR08 BNEQ $ 3 3 

51 000000006 00 D0 0006 MOVL LOW_1, R1 : 3 
60 51 D1 0006C CMPL = R71, ~ (RO) ; : 
5 1€ O0¢ BGEQU 4$ : 3 

50 1 cf 3 13% MNEGL #1, RO s 3 
9 1 074 BRB $$ : 

4 12 00076 4$ BNEQ $ : g 
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EDTSCHMPASTE EDTSCHMPASTE = change mode PASTE command 1b-s0 -1984 :07 VAX-11 Bliss-32 V4. 
v04-000 EDTSSPST_CMD = change mode PASTE command 12-8 08- 1 3be 99 98:03 DISKSVMSMASTER:CEDT. OACICHMPASTE. BLI; Pyee 3 
D4 00078 CLRL oR ; | 
4 11 Or BRB Re : | 
50 1 pO 0007C 5$: MOVL #1, RO : | 
01 9 D1 OOO7F 6$: CMPL RO, #1 : | 
0 1 082 BNEQ 7$ : 
00 F 37 00084 BRW 19$ : | 
000000006 00 FB 00087 7$ CALLS 40, EDTS$START_INS + 0760. 
68 0 FB O08 CALLS #0, EDTSSSPLT_CN + 0764. 
000000006 00 Q FB 009 CALLS #0, EDT$SCS_LEFT + 0765 
D4 00098 CLRL  BLANK_LINES + 0767 
64 67 DO O009A MOVL  EDTSSA ALT BUF, EDT$$A_CUR_BUF + 0771 
000000006 90 00 F 9090 CALLS #0, EDTSS$TOP_BUF : 0772 | 
0 69 D AG 8S: MOVL EDTS$A_WK_LN> : 0781 
60 95 000A7 TSTB —s- (RO) : 
ef 13 000A9 BEQL =-:«w1'18 : 
64 3 pO O00AB MOVL § SAVE_TBCB, EDT$$A_CUR_BUF + 0784 
6A 00 F OOOAE CALLS #0, EDT$$RD_CURLN + 0785 
52 D5 000B1 9$: TSTL | BLANK_LINES + 0787 
07 15 00083 LEG ~=—s«éi108 : 
66 00 FB 00085 CALLS #0, EDTS$$SPLT_LN + 0789 
32 D7 00088 ECL BLANK_LINES : 0790 
F5 11 OOOBA BRB 9$ + 0787 
64 67 DO OOOBC 10$:  MOVL  EDTS$$A_ALT BUF EDTSSA_CUR_BUF + 0793 
6A 00 FB O00BF CALLS #0, EDTSS$RB_CURLN 3: 0794 
50 69 D0 900¢e OVL EDTS$$A_WK_L : 0795 
7E 60 9A 000C MOVZBL (RO), =(SP) - : | 
07 AO 9F 000C8 PUSHAB 7(ROS : 
000000006 90 02 FB 000CB CALLS #2, EDTSSINS_STR ak 
50 69 DO 000D2 118: OVL EDT$$A_WK_LN; RO : 0798 | 
50 60 9A 00005 MOVZBL (RO) : 
50 65 CO 00008 ADDL2 EDT$$G_PST_CNT, RO : 
65 01 AO 9SE 000DB MOVAB 1(RO),"E EDTSSG pst _CNT F 
000000006 00 00 FB OOODF CALLS #0, EDTSSR D_NRTL : 0800 
17 50 €9 000E6 BLBC = RO, «*138 ; 
000000006 00 00 FB 000E9 CALLS #0, EDTSSCHK_CC > 0806 
09 50 €9 O00FO BLBC = RO, -12$ : 
000000006 00 01 DO O00FS MOVL #1, EDT$$G_CC_DONE : 0809 
04 11 OOOFA BRB 3§ : 0808 
52 D6 OOOFC 128: INCL  BLANK_LINES > 0813 
AS 11 OOOFE BRB 8g : 0774 
64 53 00 90190 13$:  MOVL SAVE TBCB EDTSSA_ CUR _BUF > 0821 
6A 00 FB 0010 CALLS EDT$$AD : 0822 
01 32 D1 00106 14$:  CMPL 4 vlad OTINEST + 0824 
15 00109 BLEG si ; 
68 0 Fe 0108 CALLS #0, EDT$$SPLT_LN + 0826 
2 D 910 DECL § BLANK_LINES > 0827 
F4 11 0011 BRB : O8¢4 
52 D3 0112 15$:  TSTL BLANK_LINES : 0830 
1 12 00114 BNEQ F 
000000006 00 0 FB 00116 CALLS #0, EDTS$CS_DWN : 0833 
—E D4 0011D CLRL > 0834 | 
000000006 00 01 FB OO11F CALLS #1, EDTSSCOMB_LN ; 
0 66 D ot $ MOVL FIRST WORD, SAVE : 0835 | 
66 D 1 DECL T~WOR : 
50 66 pI 128 CMPL f Ret “WORD, SAVE : 
: 1 E BLEQU 16$ ; | 
04 Ad B7 001 DECW NEXT _WORD : 


i 
SRISGQSPASTE —EBTRGUNOARLE ~_enpngs node Patf comand, YECHER-I9EE QBSOBSED.  YMELUABLLEHEREUSH°cRScummasre eit 9 
5 07 t 168: PECL 1 ii PST_CNT : 238 
| ee co a 
04 00148 = sRET . : 
50 04 00149 208:  CLRL RO ; 0843 
04 00148 RET ; 


; Routine Size: 332 bytes, Routine Base: _EDTSCODE + 0000 


274 


0844 1 
275 0845 1 !<BLF/PAGE> 


8 

EDTSCHAPASTE EDTSCHMPASTE = change mode PASTE command 1s Sep- 138% 99: 98:07 VAX-11 Bliss-32 V4.0-7 Page 1 
v04-000 EDTSSPST_CMD = change mode PASTE command 14-Sep-1984 DISKSVMSMASTER:CED*. she CHMPASTE.BLI;1 (4). 
: 277 0846 1 END ! of module EDTSCHMPASTE 
3 38 OB? 1 
: e7 48 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
: EDTSCODE 332 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
eS a) ee eee Syabols ecoceeo= Pages Processing 
2 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 41 10 4 0:00. 
; titty EDT.SRCIJPSECTS.L32;1 2 1 50 ; $0 8074 
; COMMAND QUALIFIERS 
3 RL Fey” CRO nY SELD PME TEAS, SPT ORES DUD TRACERACE AL £SA4, LOSES PASTE SER LORS CCP RE TE MSRC$: CHMPASTE .BLI/UPDATE=(ENH$: CHMP 

Size: 332 code + 0 data bytes 

un Time: 13-6 
Seased Time: 40.4 


Lines/CPU Min: 2729 
Secemg Ah Mada 10136 

ry Ue sed: 134 pages 
; Compilation Complete 


DIGITAL EQUIPMENT CORPORATION: 
CONFID 


ENTIAL -AND PROPRIETARY 


